﻿Public Class frmProductos
    Dim consulta As New consultas
    Dim validar As New Validations
    Dim id As String

    Private Sub frmProductos_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'TPI_PAVDataSet.producto' Puede moverla o quitarla según sea necesario.
        Me.ProductoTableAdapter.Fill(Me.TPI_PAVDataSet.producto)
        validar.resetTextBox(Me)


    End Sub

    Private Sub btnSalir_Click(sender As System.Object, e As System.EventArgs) Handles btnSalir.Click
        Dim Respuesta As Integer = MessageBox.Show("¿Esta seguro que quiere salir?", "Confirmar", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
        If Respuesta = 1 Then
            End
        End If
    End Sub



    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        Me.btnGuardar.Enabled = True
        Me.btnCancelar.Enabled = True
        Me.btnNuevo.Enabled = False
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        validar.resetTextBox(Me)
        Me.btnNuevo.Enabled = True
        Me.btnCancelar.Enabled = False
        Me.btnGuardar.Enabled = False
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Dim producto As New Producto

        If (validar.validarNoNull(Me) = False) Then
            MessageBox.Show("Faltan ingresar algunos datos")
        Else
            Try
                producto.nombreInfo = Me.txt_nombreProducto.Text
                producto.precioInfo = (Double.Parse(Me.txt_precio.Text))
                consulta.InsertProducto(producto)
                dgvProductos.DataSource = consulta.Consultar("producto")
            Catch ex As Exception
                MessageBox.Show("Fue imposible realizar la inserción" & ex.Message)
                Return
            End Try
        End If

        Me.btnCancelar.Enabled = False
        Me.btnNuevo.Enabled = True
        Me.btnGuardar.Enabled = False
        validar.resetTextBox(Me)


    End Sub
End Class